home *** CD-ROM | disk | FTP | other *** search
/ Net Power 2000 February / NetCD2.iso / Patch / age / age2cpfix.exe / data / GAMEDATA.DRS / Unnamed File 000025.bina < prev    next >
Encoding:
Text File  |  1999-11-11  |  3.2 KB  |  158 lines
  1. (defrule
  2.     (true)
  3. =>
  4.     (set-strategic-number sn-number-boat-explore-groups 0)
  5.     (set-strategic-number sn-dock-defend-priority 1)
  6.     (disable-self)
  7. )
  8.  
  9. (defrule
  10.     (unit-type-count galley-line > 0)
  11. =>
  12.     (set-strategic-number sn-number-boat-explore-groups 1)
  13.     (disable-self)
  14. )
  15.  
  16. ;make docks
  17. (defrule
  18.     (building-type-count-total dock == 0)
  19.     (building-type-count-total lumber-camp > 0)
  20.     (nand
  21.         (goal rush-control RUSHING)
  22.         (and
  23.             (and
  24.                 (building-type-count-total barracks == 0)
  25.                 (building-type-count-total archery-range == 0)
  26.             )
  27.             (and
  28.                 (building-type-count-total stable == 0)
  29.                 (building-type-count-total castle == 0)
  30.             )
  31.         )
  32.     )
  33.     (can-build dock)
  34. =>
  35.     (build dock)
  36. )
  37.  
  38. (defrule
  39.     (goal 1 10)
  40.     (current-age >= feudal-age)
  41.     (wood-amount > 400)
  42.     (building-type-count-total dock < 2)
  43.     (can-build-with-escrow dock)
  44. =>
  45.     (release-escrow wood)
  46.     (build dock)
  47. )
  48.  
  49. (defrule
  50.     (current-age >= castle-age)
  51.     (wood-amount > 500)
  52.     (building-type-count-total dock < 2)
  53.     (can-build-with-escrow dock)
  54. =>
  55.     (release-escrow wood)
  56.     (build dock)
  57. )
  58.  
  59. (defrule
  60.     (goal 1 10)
  61.     (current-age == imperial-age)
  62.     (wood-amount > 500)
  63.     (building-type-count-total dock < 3)
  64.     (can-build-with-escrow dock)
  65. =>
  66.     (release-escrow wood)
  67.     (build dock)
  68. )
  69.  
  70. ;build fishing ships in dark age
  71. #load-if-not-defined DEATH-MATCH
  72.  
  73. (defrule
  74.     (current-age == dark-age)
  75.     (building-type-count-total lumber-camp > 0)
  76.     (civilian-population < civ-dark)
  77.     (or
  78.         (unit-type-count-total fishing-ship < five-percent-pop)
  79.         (and
  80.             (goal rush-control BOOMING)
  81.             (unit-type-count-total fishing-ship < ten-percent-pop)
  82.         )
  83.     )
  84.     (nand
  85.         (goal rush-control RUSHING)
  86.         (building-type-count-total barracks == 0)
  87.     )
  88.     (can-train fishing-ship)
  89. =>
  90.     (train fishing-ship)
  91. )
  92.  
  93. ;feudal boats
  94. (defrule
  95.     (goal secondary-build 1)
  96.     (current-age == feudal-age)
  97.     (building-type-count-total blacksmith > 0)
  98.     (civilian-population < civ-feudal)
  99.     (unit-type-count-total fishing-ship < ten-percent-pop)
  100.     (unit-type-count-total galley > 0)
  101.     (can-train fishing-ship)
  102. =>
  103.     (train fishing-ship)
  104. )
  105.  
  106. ;castle boats
  107. (defrule
  108.     (goal secondary-build 1)
  109.     (building-type-count-total siege-workshop > 0)
  110.     (civilian-population < civ-castle)
  111.     (unit-type-count-total fishing-ship < ten-percent-pop)
  112.     (or
  113.         (current-age == castle-age)
  114.         (and
  115.             (current-age == imperial-age)
  116.             (current-age-time < 2400)
  117.         )
  118.     )
  119.     (can-train fishing-ship)
  120. =>
  121.     (train fishing-ship)
  122. )
  123.  
  124. #end-if
  125.  
  126. (defrule
  127.     (population >= pop-cap)
  128.     (unit-type-count fishing-ship > ten-percent-pop)
  129. =>
  130.     (delete-unit fishing-ship)
  131. )
  132.  
  133. (defrule
  134.     (population >= pop-cap)
  135.     (current-age == imperial-age)
  136.     (current-age-time > 2400)
  137.     (unit-type-count fishing-ship > 0)
  138. =>
  139.     (delete-unit fishing-ship)
  140. )
  141.  
  142. ;start the run-through for military ships & rulers of the sea
  143. (defrule
  144.     (not (goal 2 0) )
  145. =>
  146.     (set-goal 2 0)
  147. )
  148.  
  149. (defrule
  150.     (current-age >= castle-age)
  151.     (cc-players-unit-type-count every-enemy galley-line < five-percent-pop)
  152.     (cc-players-unit-type-count every-enemy cannon-galleon-line < five-percent-pop)
  153.     (cc-players-unit-type-count every-enemy fire-ship-line < five-percent-pop)
  154.     (cc-players-unit-type-count every-enemy longboat-line < five-percent-pop)
  155. =>
  156.     (set-goal 2 2)
  157. )
  158.